pcworld online logo

VB 4.0 ve RTF metin kutusu kontrolⁿnⁿn kullan²m²

resim resim Eski Visual BasicÆler de bulunan metin kutusunun aksine VB 4.0 yetenekli bir kontrol olan Rich Text Box ile birlikte gelmi■tir. Rich Text Box WindowsÆun salt metin format²n² tan²mas²n²n yan²nda iτinde renk, yaz²tipi, bⁿyⁿklⁿk, kal²nl²k yada incelik bulunduran "Zengin Metin Format²"n² da tan²yabilir. Bu format Windows alt²nda τal²■an hemen hemen tⁿm metin edit÷rleri taraf²ndan tan²nabilmektedir. Format, bu zengin ÷zelliklerinin aksine kaydedildi≡inde "ikili" dosya biτimine girmez. ▌■te size VB 4.0Ʋn bu kontrolⁿnⁿ kullanan ÷rnek bir program. Ama bu sefer kontrol kutusundan "Metin kutusu" de≡il "Zengin metin kutusu" kontrolⁿnⁿ seτin. Program²n²z RTF format²ndaki dosyalar² aτabilir ve sizin yazd²≡²n²z RTF format²ndaki dosyalar² kaydedebilir. Kodlar²n k²sal²≡²n² g÷rⁿnce hayrete dⁿ■eceksiniz. 
Private Sub Command1_Click()	'kal²n
    RichTextBox1.SelBold = True
End Sub

Private Sub Command2_Click()	'italik
    RichTextBox1.SelItalic = True
End Sub

Private Sub Command3_Click()	'renk
    CommonDialog1.Action = 3
    RichTextBox1.SelColor = CommonDialog1.Color
End Sub

Private Sub Command4_Click()	'kaydet
    CommonDialog1.ShowSave
    RichTextBox1.SaveFile (CommonDialog1.filename)
End Sub

Private Sub Command5_Click()	' aτ
    CommonDialog1.Filter = "Rich Text Format Dosyalar²|*.rtf"
    CommonDialog1.ShowOpen
    RichTextBox1.LoadFile CommonDialog1.filename, rtfRTF
End Sub

Private Sub Command6_Click()	'τ²k²■
End
End Sub